home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpeval.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  46.1 KB  |  1,898 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpeval.h"
  4. init_cmpeval(){do_init(VV);}
  5. /*    local entry for function C1EXPR*    */
  6.  
  7. static object LI1(V3,V4)
  8.  
  9. register object V3;object V4;
  10. {     VMB1 VMS1 VMV1
  11. TTL:;
  12.     V3= (*(LnkLI123))((V3));
  13.     (void)((*(LnkLI124))((V4),cadr((V3))));
  14.     {object V5 = (V3);
  15.     VMR1(V5)}
  16. }
  17. /*    local entry for function C1EXPR    */
  18.  
  19. static object LI2(V7)
  20.  
  21. VOL object V7;
  22. {     VMB2 VMS2 VMV2
  23. TTL:;
  24.     frs_push(FRS_CATCH,VV[0]);
  25.     if(nlj_active)
  26.     {nlj_active=FALSE;frs_pop();
  27.     vs_top=sup;
  28.     V7= vs_base[0];
  29.     goto T5;}
  30.     else{
  31.     if(!(type_of((V7))==t_symbol)){
  32.     goto T8;}
  33.     if(!(((V7))==(Cnil))){
  34.     goto T11;}
  35.     V8= (*(LnkLI125))();
  36.     frs_pop();
  37.     V7= V8;
  38.     goto T5;
  39. T11:;
  40.     if(!(((V7))==(Ct))){
  41.     goto T14;}
  42.     V9= (*(LnkLI126))();
  43.     frs_pop();
  44.     V7= V9;
  45.     goto T5;
  46. T14:;
  47.     if(!((type_of((V7))==t_symbol&&((V7))->s.s_hpack==keyword_package))){
  48.     goto T17;}
  49.     V10= (*(LnkLI128))((V7));
  50.     V11= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V10));
  51.     V12= list(3,VV[1],/* INLINE-ARGS */V11,list(2,VV[3],(*(LnkLI129))((V7))));
  52.     frs_pop();
  53.     V7= V12;
  54.     goto T5;
  55. T17:;
  56.     base[0]= (V7);
  57.     vs_top=(vs_base=base+0)+1;
  58.     Lconstantp();
  59.     vs_top=sup;
  60.     if((vs_base[0])==Cnil){
  61.     goto T20;}
  62.     {object V13;
  63.     base[0]= (V7);
  64.     vs_top=(vs_base=base+0)+1;
  65.     Lsymbol_value();
  66.     vs_top=sup;
  67.     V13= vs_base[0];{object V14;
  68.     V14= (*(LnkLI130))((V13),Cnil);
  69.     if(V14==Cnil)goto T25;
  70.     frs_pop();
  71.     V7= V14;
  72.     goto T5;
  73. T25:;}
  74.     V15= (*(LnkLI128))((V13));
  75.     V16= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V15));
  76.     V17= list(3,VV[1],/* INLINE-ARGS */V16,list(2,VV[3],(*(LnkLI131))((V7))));
  77.     frs_pop();
  78.     V7= V17;
  79.     goto T5;}
  80. T20:;
  81.     V18= (*(LnkLI132))((V7));
  82.     frs_pop();
  83.     V7= V18;
  84.     goto T5;
  85. T8:;
  86.     if(!(type_of((V7))==t_cons)){
  87.     goto T28;}
  88.     {register object V19;
  89.     V19= car((V7));
  90.     if(!(type_of((V19))==t_symbol)){
  91.     goto T32;}
  92.     base[0]= (V19);
  93.     base[1]= cdr((V7));
  94.     vs_top=(vs_base=base+0)+2;
  95.     (void) (*Lnk133)();
  96.     vs_top=sup;
  97.     frs_pop();
  98.     V7= vs_base[0];
  99.     goto T5;
  100. T32:;
  101.     if(!(type_of((V19))==t_cons)){
  102.     goto T37;}
  103.     if(!((car((V19)))==(VV[4]))){
  104.     goto T37;}
  105.     V20= (*(LnkLI134))(cdr((V19)),cdr((V7)));
  106.     frs_pop();
  107.     V7= V20;
  108.     goto T5;
  109. T37:;
  110.     if(!(type_of((V19))==t_cons)){
  111.     goto T42;}
  112.     if(!((car((V19)))==(VV[5]))){
  113.     goto T42;}
  114.     V21= (VFUN_NARGS=1,(*(LnkLI135))(VV[6]));
  115.     frs_pop();
  116.     V7= V21;
  117.     goto T5;
  118. T42:;
  119.     V22= (VFUN_NARGS=2,(*(LnkLI135))(VV[7],(V19)));
  120.     frs_pop();
  121.     V7= V22;
  122.     goto T5;}
  123. T28:;
  124.     V23= (*(LnkLI130))((V7),Ct);
  125.     frs_pop();
  126.     V7= V23;}
  127. T5:;
  128.     if(!(((V7))==(VV[8]))){
  129.     goto T47;}
  130.     {object V24 = (*(LnkLI125))();
  131.     VMR2(V24)}
  132. T47:;
  133.     {object V25 = (V7);
  134.     VMR2(V25)}
  135. }
  136. /*    local entry for function C1SHARP-COMMA    */
  137.  
  138. static object LI3(V27)
  139.  
  140. object V27;
  141. {     VMB3 VMS3 VMV3
  142. TTL:;
  143.     V28= make_cons(VV[5],(V27));
  144.     {object V29 = (*(LnkLI130))(/* INLINE-ARGS */V28,Ct);
  145.     VMR3(V29)}
  146. }
  147. /*    local entry for function C1DEFINE-STRUCTURE    */
  148.  
  149. static object LI4(V31)
  150.  
  151. object V31;
  152. {     VMB4 VMS4 VMV4
  153.     bds_check;
  154. TTL:;
  155.     bds_bind(VV[9],Cnil);
  156.     base[1]= make_cons(VV[10],(V31));
  157.     vs_top=(vs_base=base+1)+1;
  158.     Leval();
  159.     vs_top=sup;
  160.     V32= listA(3,VV[5],VV[10],(V31));
  161.     (void)((*(LnkLI130))(/* INLINE-ARGS */V32,Ct));
  162.     (void)((*(LnkLI136))());
  163.     {object V33 = Cnil;
  164.     bds_unwind1;
  165.     VMR4(V33)}
  166. }
  167. /*    local entry for function C1NIL    */
  168.  
  169. static object LI5()
  170.  
  171. {     VMB5 VMS5 VMV5
  172. TTL:;
  173.     {object V34 = symbol_value(VV[11]);
  174.     VMR5(V34)}
  175. }
  176. /*    local entry for function C1T    */
  177.  
  178. static object LI6()
  179.  
  180. {     VMB6 VMS6 VMV6
  181. TTL:;
  182.     {object V35 = symbol_value(VV[12]);
  183.     VMR6(V35)}
  184. }
  185. /*    function definition for FLAGS-POS    */
  186.  
  187. static L7()
  188. {register object *base=vs_base;
  189.     register object *sup=base+VM7; VC7
  190.     vs_reserve(VM7);
  191.     {register object V36;
  192.     check_arg(1);
  193.     V36=(base[0]);
  194.     vs_top=sup;
  195. TTL:;
  196.     {register int V37;
  197.     V37= 0;
  198.     {register object V38;
  199.     register object V39;
  200.     V38= VV[13];
  201.     V39= car((V38));
  202. T58:;
  203.     if(!(endp((V38)))){
  204.     goto T59;}
  205.     goto T54;
  206. T59:;
  207.     {register object x= (V36),V40= (V39);
  208.     while(!endp(V40))
  209.     if(x==(V40->c.c_car)){
  210.     goto T65;
  211.     }else V40=V40->c.c_cdr;
  212.     goto T63;}
  213. T65:;
  214.     base[2]= make_fixnum(V37);
  215.     vs_top=(vs_base=base+2)+1;
  216.     return;
  217. T63:;
  218.     V37= (V37)+(1);
  219.     V38= cdr((V38));
  220.     V39= car((V38));
  221.     goto T58;}
  222. T54:;
  223.     base[1]= VV[14];
  224.     vs_top=(vs_base=base+1)+1;
  225.     Lerror();
  226.     return;}
  227.     }
  228. }
  229. /*    macro definition for FLAG-P    */
  230.  
  231. static L8()
  232. {register object *base=vs_base;
  233.     register object *sup=base+VM8; VC8
  234.     vs_reserve(VM8);
  235.     check_arg(2);
  236.     vs_top=sup;
  237.     {object V41=base[0]->c.c_cdr;
  238.     if(endp(V41))invalid_macro_call();
  239.     base[2]= (V41->c.c_car);
  240.     V41=V41->c.c_cdr;
  241.     if(endp(V41))invalid_macro_call();
  242.     base[3]= (V41->c.c_car);
  243.     V41=V41->c.c_cdr;
  244.     if(!endp(V41))invalid_macro_call();}
  245.     base[4]= base[3];
  246.     vs_top=(vs_base=base+4)+1;
  247.     (void) (*Lnk137)();
  248.     vs_top=sup;
  249.     V42= vs_base[0];
  250.     base[4]= list(3,VV[15],V42,base[2]);
  251.     vs_top=(vs_base=base+4)+1;
  252.     return;
  253. }
  254. /*    function definition for FIX-OPT    */
  255.  
  256. static L9()
  257. {register object *base=vs_base;
  258.     register object *sup=base+VM9; VC9
  259.     vs_reserve(VM9);
  260.     {register object V43;
  261.     check_arg(1);
  262.     V43=(base[0]);
  263.     vs_top=sup;
  264. TTL:;
  265.     {register object V44;
  266.     V44= cddr((V43));
  267.     if(type_of(car((V44)))==t_fixnum){
  268.     goto T77;}
  269.     if((symbol_value(VV[16]))==Cnil){
  270.     goto T80;}
  271.     (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V43))));
  272. T80:;
  273.     {object V46;
  274.     if((car((V44)))==Cnil){
  275.     goto T87;}
  276.     base[2]= small_fixnum(2);
  277.     goto T85;
  278. T87:;
  279.     base[2]= small_fixnum(0);
  280. T85:;
  281.     if((cadr((V44)))==Cnil){
  282.     goto T91;}
  283.     base[3]= small_fixnum(1);
  284.     goto T89;
  285. T91:;
  286.     base[3]= small_fixnum(0);
  287. T89:;
  288.     vs_top=(vs_base=base+2)+2;
  289.     Llogior();
  290.     vs_top=sup;
  291.     V47= vs_base[0];
  292.     V46= make_cons(V47,cddr((V44)));
  293.     if(type_of(cdr(V43))!=t_cons)FEwrong_type_argument(Scons,cdr(V43));
  294.     (cdr(V43))->c.c_cdr = (V46);
  295.     (void)(cdr(V43));}
  296. T77:;
  297.     base[1]= (V43);
  298.     vs_top=(vs_base=base+1)+1;
  299.     return;}
  300.     }
  301. }
  302. /*    function definition for RESULT-TYPE-FROM-ARGS    */
  303.  
  304. static L10()
  305. {register object *base=vs_base;
  306.     register object *sup=base+VM10; VC10
  307.     vs_reserve(VM10);
  308.     {object V48;
  309.     register object V49;
  310.     check_arg(2);
  311.     V48=(base[0]);
  312.     V49=(base[1]);
  313.     vs_top=sup;
  314. TTL:;
  315.     {object V50;
  316.     V50= Cnil;
  317.     V50= get((V48),VV[18],Cnil);
  318.     if(((V50))==Cnil){
  319.     goto T96;}
  320.     if(((V50))==(VV[19])){
  321.     goto T96;}
  322.     if(type_of((V50))==t_cons){
  323.     goto T96;}
  324.     {register object V51;
  325.     object V52;
  326.     V51= VV[20];
  327.     V52= car((V51));
  328. T106:;
  329.     if(!(endp((V51)))){
  330.     goto T107;}
  331.     base[3]= Cnil;
  332.     vs_top=(vs_base=base+3)+1;
  333.     return;
  334. T107:;
  335.     {register object V53;
  336.     register object V54;
  337.     V53= get((V48),(V52),Cnil);
  338.     V54= car((V53));
  339. T115:;
  340.     if(!(endp((V53)))){
  341.     goto T116;}
  342.     goto T111;
  343. T116:;
  344.     base[5]= (V54);
  345.     vs_top=(vs_base=base+5)+1;
  346.     (void) (*Lnk139)();
  347.     vs_top=sup;
  348.     base[5]= small_fixnum(3);
  349.     base[6]= caddr((V54));
  350.     vs_top=(vs_base=base+5)+2;
  351.     Llogbitp();
  352.     vs_top=sup;
  353.     if((vs_base[0])==Cnil){
  354.     goto T122;}
  355.     if(!((length((V49)))==(length(car((V54)))))){
  356.     goto T122;}
  357.     {register object V55;
  358.     register object V56;
  359.     V56= car((V54));
  360.     V55= (V49);
  361. T133:;
  362.     if(((V55))!=Cnil){
  363.     goto T134;}
  364.     goto T130;
  365. T134:;
  366.     if((car((V55)))==(car((V56)))){
  367.     goto T138;}
  368.     if(((*(LnkLI140))(car((V56)),car((V55))))!=Cnil){
  369.     goto T138;}
  370.     goto T122;
  371. T138:;
  372.     V55= cdr((V55));
  373.     V56= cdr((V56));
  374.     goto T133;}
  375. T130:;
  376.     base[5]= cadr((V54));
  377.     vs_top=(vs_base=base+5)+1;
  378.     return;
  379. T122:;
  380.     V53= cdr((V53));
  381.     V54= car((V53));
  382.     goto T115;}
  383. T111:;
  384.     V51= cdr((V51));
  385.     V52= car((V51));
  386.     goto T106;}
  387. T96:;
  388.     base[2]= Cnil;
  389.     vs_top=(vs_base=base+2)+1;
  390.     return;}
  391.     }
  392. }
  393. /*    macro definition for FLAGS    */
  394.  
  395. static L11()
  396. {register object *base=vs_base;
  397.     register object *sup=base+VM11; VC11
  398.     vs_reserve(VM11);
  399.     check_arg(2);
  400.     vs_top=sup;
  401.     {object V57=base[0]->c.c_cdr;
  402.     base[2]= V57;
  403.     base[3]= small_fixnum(0);}
  404.     {register object V58;
  405.     register object V59;
  406.     V58= base[2];
  407.     V59= car((V58));
  408. T162:;
  409.     if(!(endp((V58)))){
  410.     goto T163;}
  411.     goto T158;
  412. T163:;
  413.     base[5]= base[3];
  414.     base[7]= small_fixnum(1);
  415.     base[9]= (V59);
  416.     vs_top=(vs_base=base+9)+1;
  417.     (void) (*Lnk137)();
  418.     vs_top=sup;
  419.     base[8]= vs_base[0];
  420.     vs_top=(vs_base=base+7)+2;
  421.     Lash();
  422.     vs_top=sup;
  423.     base[6]= vs_base[0];
  424.     vs_top=(vs_base=base+5)+2;
  425.     Llogior();
  426.     vs_top=sup;
  427.     base[3]= vs_base[0];
  428.     V58= cdr((V58));
  429.     V59= car((V58));
  430.     goto T162;}
  431. T158:;
  432.     vs_top=(vs_base=base+3)+1;
  433.     return;
  434. }
  435. /*    function definition for C1SYMBOL-FUN    */
  436.  
  437. static L12()
  438. {register object *base=vs_base;
  439.     register object *sup=base+VM12; VC12
  440.     vs_reserve(VM12);
  441.     {object V60;
  442.     register object V61;
  443.     check_arg(2);
  444.     V60=(base[0]);
  445.     V61=(base[1]);
  446.     vs_top=sup;
  447. TTL:;
  448.     {object V62;
  449.     V62= Cnil;
  450.     V62= get((V60),VV[21],Cnil);
  451.     if(((V62))==Cnil){
  452.     goto T181;}
  453.     base[2]= (V61);
  454.     vs_top=(vs_base=base+2)+1;
  455.     super_funcall_no_event((V62));
  456.     return;
  457. T181:;
  458.     {object V63;
  459.     V62= get((V60),VV[22],Cnil);
  460.     if(((V62))!=Cnil){
  461.     goto T186;}
  462.     V63= Cnil;
  463.     goto T185;
  464. T186:;
  465.     V63= (
  466.     (type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)):
  467.     (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));
  468. T185:;
  469.     if(((V63))==Cnil){
  470.     goto T190;}
  471.     base[2]= (V63);
  472.     vs_top=(vs_base=base+2)+1;
  473.     return;
  474. T190:;
  475.     V62= (*(LnkLI141))((V60));
  476.     if(((V62))==Cnil){
  477.     goto T193;}
  478.     if(!((car((V62)))==(VV[23]))){
  479.     goto T197;}
  480.     {object V64;
  481.     object V65;
  482.     V64= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct));
  483.     V65= (*(LnkLI142))((V61),(V64));
  484.     {object V66;
  485.     V66= (*(LnkLI143))(caddr((V62)));
  486.     if(((V66))==Cnil){
  487.     goto T201;}
  488.     (void)(structure_set((V64),VV[25],2,(V66)));}
  489. T201:;
  490.     {register object V67;
  491.     V67= (*(LnkLI144))(caddr((V62)));
  492.     if(((V67))==Cnil){
  493.     goto T205;}
  494.     {object V68;
  495.     V68= Cnil;
  496.     {object V69;
  497.     object V70;
  498.     V69= (V65);
  499.     V70= car((V69));
  500. T213:;
  501.     if(!(endp((V69)))){
  502.     goto T214;}
  503.     goto T209;
  504. T214:;
  505.     if(!(endp((V67)))){
  506.     goto T220;}
  507.     V68= make_cons((V70),(V68));
  508.     goto T218;
  509. T220:;
  510.     V71= (*(LnkLI145))(car((V67)),(V70),car((V61)));
  511.     V68= make_cons(/* INLINE-ARGS */V71,(V68));
  512.     {object V72;
  513.     V72= car((V67));
  514.     V67= cdr((V67));}
  515.     {object V73;
  516.     V73= car((V61));
  517.     V61= cdr((V61));}
  518. T218:;
  519.     V69= cdr((V69));
  520.     V70= car((V69));
  521.     goto T213;}
  522. T209:;
  523.     V65= reverse((V68));}}
  524. T205:;
  525.     base[4]= list(4,VV[23],(V64),cddr((V62)),(V65));
  526.     vs_top=(vs_base=base+4)+1;
  527.     return;}
  528. T197:;
  529.     V74= (*(LnkLI146))((V62),(V60),(V61));
  530.     base[2]= (*(LnkLI123))(/* INLINE-ARGS */V74);
  531.     vs_top=(vs_base=base+2)+1;
  532.     return;
  533. T193:;
  534.     {object V75;
  535.     V62= get((V60),VV[26],Cnil);
  536.     if(((V62))!=Cnil){
  537.     goto T239;}
  538.     V75= Cnil;
  539.     goto T238;
  540. T239:;
  541.     if(((*(LnkLI147))((V60)))!=Cnil){
  542.     goto T242;}
  543.     V75= Cnil;
  544.     goto T238;
  545. T242:;
  546.     V75= (
  547.     (type_of((V62)) == t_sfun ?(*(object (*)())(((V62))->sfn.sfn_self)):
  548.     (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));
  549. T238:;
  550.     if(((V75))==Cnil){
  551.     goto T245;}
  552.     base[2]= (V75);
  553.     vs_top=(vs_base=base+2)+1;
  554.     return;
  555. T245:;
  556.     V62= get((V60),VV[27],Cnil);
  557.     if(((V62))==Cnil){
  558.     goto T248;}
  559.     if(((*(LnkLI147))((V60)))==Cnil){
  560.     goto T248;}
  561.     base[2]= (V61);
  562.     vs_top=(vs_base=base+2)+1;
  563.     super_funcall_no_event((V62));
  564.     return;
  565. T248:;
  566.     V62= get((V60),VV[28],Cnil);
  567.     if(((V62))==Cnil){
  568.     goto T255;}
  569.     if(((*(LnkLI147))((V60)))==Cnil){
  570.     goto T255;}
  571.     base[2]= car((V62));
  572.     base[3]= (V61);
  573.     vs_top=(vs_base=base+3)+1;
  574.     super_funcall_no_event(base[2]);
  575.     vs_top=sup;
  576.     if((vs_base[0])==Cnil){
  577.     goto T255;}
  578.     base[2]= cdr((V62));
  579.     base[3]= (V61);
  580.     vs_top=(vs_base=base+3)+1;
  581.     super_funcall_no_event(base[2]);
  582.     return;
  583. T255:;
  584.     {object V76;
  585.     base[2]= (V60);
  586.     vs_top=(vs_base=base+2)+1;
  587.     Lsymbol_package();
  588.     vs_top=sup;
  589.     V77= vs_base[0];
  590.     base[2]= VV[29];
  591.     vs_top=(vs_base=base+2)+1;
  592.     Lsymbol_package();
  593.     vs_top=sup;
  594.     V78= vs_base[0];
  595.     if((V77)==(V78)){
  596.     goto T268;}
  597.     goto T267;
  598. T268:;
  599.     base[2]= (V60);
  600.     vs_top=(vs_base=base+2)+1;
  601.     Lfboundp();
  602.     vs_top=sup;
  603.     V79= vs_base[0];
  604.     if((V79)==Cnil){
  605.     goto T274;}
  606.     goto T267;
  607. T274:;
  608.     (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V60))));
  609. T267:;
  610.     if(symbol_value(VV[31])==Cnil){
  611.     goto T278;}
  612.     (void)((*(LnkLI32))(VV[32],(V60)));
  613. T278:;
  614.     V76= Cnil;
  615.     if(((V76))==Cnil){
  616.     goto T280;}
  617.     base[2]= (V76);
  618.     vs_top=(vs_base=base+2)+1;
  619.     return;
  620. T280:;
  621.     base[2]= (V60);
  622.     vs_top=(vs_base=base+2)+1;
  623.     Lmacro_function();
  624.     vs_top=sup;
  625.     V62= vs_base[0];
  626.     if(((V62))==Cnil){
  627.     goto T283;}
  628.     V80= (*(LnkLI146))((V62),(V60),(V61));
  629.     base[2]= (*(LnkLI123))(/* INLINE-ARGS */V80);
  630.     vs_top=(vs_base=base+2)+1;
  631.     return;
  632. T283:;
  633.     V62= get((V60),VV[33],Cnil);
  634.     if(((V62))==Cnil){
  635.     goto T288;}
  636.     V82= list(2,VV[35],(V62));
  637.     base[2]= list(4,VV[34],/* INLINE-ARGS */V82,list(2,VV[35],make_cons((V60),(V61))),Cnil);
  638.     vs_top=(vs_base=base+2)+1;
  639.     (void) (*Lnk148)();
  640.     vs_top=sup;
  641.     V81= vs_base[0];
  642.     base[2]= (*(LnkLI123))(V81);
  643.     vs_top=(vs_base=base+2)+1;
  644.     return;
  645. T288:;
  646.     V62= get((V60),VV[36],Cnil);
  647.     if(((V62))==Cnil){
  648.     goto T294;}
  649.     if(((*(LnkLI147))((V60)))==Cnil){
  650.     goto T294;}
  651.     if(!(type_of((V62))==t_cons)){
  652.     goto T294;}
  653.     if(!(type_of(cdr((V62)))==t_fixnum)){
  654.     goto T294;}
  655.     if(endp((V61))){
  656.     goto T294;}
  657.     if(!(endp(cdr((V61))))){
  658.     goto T294;}
  659.     {object V83= car((V62));
  660.     if((V83!= VV[46]))goto T307;
  661.     V84= list(3,VV[37],car((V61)),cdr((V62)));
  662.     base[2]= (*(LnkLI123))(/* INLINE-ARGS */V84);
  663.     vs_top=(vs_base=base+2)+1;
  664.     return;
  665. T307:;
  666.     if((V83!= VV[113]))goto T308;
  667.     V85= list(3,VV[38],cdr((V62)),car((V61)));
  668.     base[2]= (*(LnkLI123))(/* INLINE-ARGS */V85);
  669.     vs_top=(vs_base=base+2)+1;
  670.     return;
  671. T308:;
  672.     base[2]= (*(LnkLI149))(car((V61)),car((V62)),cdr((V62)));
  673.     vs_top=(vs_base=base+2)+1;
  674.     return;}
  675. T294:;
  676.     if(!(((V60))==(VV[5]))){
  677.     goto T310;}
  678.     base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39]));
  679.     vs_top=(vs_base=base+2)+1;
  680.     return;
  681. T310:;
  682.     {object V86;
  683.     object V87;
  684.     V88= get((V60),VV[40],Cnil);
  685.     V86= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],((V88)==Cnil?Ct:Cnil)));
  686.     V87= (*(LnkLI142))((V61),(V86));
  687.     {object V89;
  688.     V89= (*(LnkLI150))((V60));
  689.     if(((V89))==Cnil){
  690.     goto T315;}
  691.     if(!(equal((V89),VV[41]))){
  692.     goto T320;}
  693.     V89= Cnil;
  694.     goto T315;
  695. T320:;
  696.     (void)(structure_set((V86),VV[25],2,(V89)));}
  697. T315:;
  698.     {register object V90;
  699.     V90= (*(LnkLI151))((V60));
  700.     if(((V90))==Cnil){
  701.     goto T323;}
  702.     {register object V91;
  703.     register object V92;
  704.     object V93;
  705.     V91= (V87);
  706.     V92= Cnil;
  707.     V93= (V61);
  708. T328:;
  709.     if(!(endp((V91)))){
  710.     goto T329;}
  711.     V87= reverse((V92));
  712.     goto T323;
  713. T329:;
  714.     if(!(endp((V90)))){
  715.     goto T336;}
  716.     V92= make_cons(car((V91)),(V92));
  717.     goto T334;
  718. T336:;
  719.     V94= (*(LnkLI145))(car((V90)),car((V91)),car((V93)));
  720.     V92= make_cons(/* INLINE-ARGS */V94,(V92));
  721.     {object V95;
  722.     V95= car((V90));
  723.     V90= cdr((V90));}
  724. T334:;
  725.     V91= cdr((V91));
  726.     V93= cdr((V93));
  727.     goto T328;}}
  728. T323:;
  729.     {register object V96;
  730.     V96= get((V60),VV[42],Cnil);
  731.     if(((V96))==Cnil){
  732.     goto T348;}
  733.     {object V97;
  734.     object V98;
  735.     V97= (V87);
  736.     V98= (V61);
  737. T353:;
  738.     if(endp((V96))){
  739.     goto T355;}
  740.     if(!(endp((V97)))){
  741.     goto T354;}
  742. T355:;
  743.     goto T348;
  744. T354:;
  745.     (void)((*(LnkLI152))(car((V96)),car((V97)),car((V98))));
  746.     {object V99;
  747.     V99= car((V96));
  748.     V96= cdr((V96));}
  749.     V97= cdr((V97));
  750.     V98= cdr((V98));
  751.     goto T353;}}
  752. T348:;
  753.     {object V100= (V60);
  754.     if((V100!= VV[153]))goto T370;
  755.     {object V101;
  756.     V101= structure_ref(cadar((V87)),VV[25],2);
  757.     if(!(((V101))==(VV[43]))){
  758.     goto T373;}
  759.     V101= VV[44];
  760.     if((VV[44])!=Cnil){
  761.     goto T372;}
  762. T373:;
  763.     if(!(type_of((V101))==t_cons)){
  764.     goto T369;}
  765.     if((car((V101)))==(VV[45])){
  766.     goto T380;}
  767.     if(!((car((V101)))==(VV[46]))){
  768.     goto T369;}
  769. T380:;
  770.     V101= cadr((V101));
  771.     if(((V101))==Cnil){
  772.     goto T369;}
  773. T372:;
  774.     V102= structure_ref((V86),VV[25],2);
  775.     V101= (*(LnkLI154))(/* INLINE-ARGS */V102,(V101));
  776.     if(((V101))!=Cnil){
  777.     goto T388;}
  778.     V103= make_cons((V60),(V61));
  779.     (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V103)));
  780. T388:;
  781.     (void)(structure_set((V86),VV[25],2,(V101)));
  782.     goto T369;}
  783. T370:;
  784.     if((V100!= VV[155]))goto T391;
  785.     {object V104;
  786.     V104= structure_ref(cadar((V87)),VV[25],2);
  787.     if(!(((V104))==(VV[43]))){
  788.     goto T394;}
  789.     V104= VV[44];
  790.     if((VV[44])!=Cnil){
  791.     goto T393;}
  792. T394:;
  793.     if(!(type_of((V104))==t_cons)){
  794.     goto T369;}
  795.     if((car((V104)))==(VV[45])){
  796.     goto T401;}
  797.     if(!((car((V104)))==(VV[46]))){
  798.     goto T369;}
  799. T401:;
  800.     V104= cadr((V104));
  801.     if(((V104))==Cnil){
  802.     goto T369;}
  803. T393:;
  804.     V105= structure_ref((V86),VV[25],2);
  805.     base[4]= (V87);
  806.     vs_top=(vs_base=base+4)+1;
  807.     Llast();
  808.     vs_top=sup;
  809.     V106= vs_base[0];
  810.     V107= structure_ref(cadar(V106),VV[25],2);
  811.     V108= (*(LnkLI154))(/* INLINE-ARGS */V107,(V104));
  812.     V104= (*(LnkLI154))(/* INLINE-ARGS */V105,/* INLINE-ARGS */V108);
  813.     if(((V104))!=Cnil){
  814.     goto T411;}
  815.     V109= make_cons((V60),(V61));
  816.     (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V109)));
  817. T411:;
  818.     (void)(structure_set((V86),VV[25],2,(V104)));
  819.     base[4]= (V87);
  820.     vs_top=(vs_base=base+4)+1;
  821.     Llast();
  822.     vs_top=sup;
  823.     V110= vs_base[0];
  824.     (void)(structure_set(cadar(V110),VV[25],2,(V104)));
  825.     goto T369;}
  826. T391:;}
  827. T369:;
  828.     {object V111;
  829.     base[4]= (V60);
  830.     {object V112;
  831.     object V113= (V87);
  832.     if(endp(V113)){
  833.     base[5]= Cnil;
  834.     goto T420;}
  835.     base[6]=V112=MMcons(Cnil,Cnil);
  836. T421:;
  837.     (V112->c.c_car)= structure_ref(cadr((V113->c.c_car)),VV[25],2);
  838.     if(endp(V113=MMcdr(V113))){
  839.     base[5]= base[6];
  840.     goto T420;}
  841.     V112=MMcdr(V112)=MMcons(Cnil,Cnil);
  842.     goto T421;}
  843. T420:;
  844.     vs_top=(vs_base=base+4)+2;
  845.     (void) (*Lnk156)();
  846.     vs_top=sup;
  847.     V111= vs_base[0];
  848.     if(((V111))==Cnil){
  849.     goto T417;}
  850.     V115= structure_ref((V86),VV[25],2);
  851.     V111= (*(LnkLI154))((V111),/* INLINE-ARGS */V115);
  852.     (void)(structure_set((V86),VV[25],2,(V111)));}
  853. T417:;
  854.     base[4]= list(4,VV[49],(V86),(V60),(V87));
  855.     vs_top=(vs_base=base+4)+1;
  856.     return;}}}}}
  857.     }
  858. }
  859. /*    local entry for function REPLACE-CONSTANT    */
  860.  
  861. static object LI13(V117)
  862.  
  863. object V117;
  864. {     VMB13 VMS13 VMV13
  865. TTL:;
  866.     {register object V118;
  867.     register object V119;
  868.     V118= Cnil;
  869.     V119= Cnil;
  870.     {register object V120;
  871.     V120= (V117);
  872. T430:;
  873.     if(((V120))!=Cnil){
  874.     goto T431;}
  875.     {object V121 = (V118);
  876.     VMR13(V121)}
  877. T431:;
  878.     base[0]= car((V120));
  879.     vs_top=(vs_base=base+0)+1;
  880.     Lconstantp();
  881.     vs_top=sup;
  882.     if((vs_base[0])==Cnil){
  883.     goto T435;}
  884.     base[0]= car((V120));
  885.     vs_top=(vs_base=base+0)+1;
  886.     Leval();
  887.     vs_top=sup;
  888.     V119= vs_base[0];
  889.     if(type_of((V119))==t_fixnum||
  890. type_of((V119))==t_bignum||
  891. type_of((V119))==t_ratio||
  892. type_of((V119))==t_shortfloat||
  893. type_of((V119))==t_longfloat||
  894. type_of((V119))==t_complex){
  895.     goto T436;}
  896.     if(!(type_of((V119))==t_character)){
  897.     goto T435;}
  898. T436:;
  899.     V118= Ct;
  900.     {register object V122;
  901.     register object V123;
  902.     V122= (V120);
  903.     V123= (V119);
  904.     if(type_of((V122))!=t_cons)FEwrong_type_argument(Scons,(V122));
  905.     ((V122))->c.c_car = (V123);}
  906. T435:;
  907.     V120= cdr((V120));
  908.     goto T430;}}
  909. }
  910. /*    local entry for function C1LAMBDA-FUN    */
  911.  
  912. static object LI14(V126,V127)
  913.  
  914. register object V126;object V127;
  915. {     VMB14 VMS14 VMV14
  916. TTL:;
  917.     {object V128;
  918.     V128= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct));
  919.     V127= (*(LnkLI142))((V127),(V128));
  920.     V126= (VFUN_NARGS=1,(*(LnkLI157))((V126)));
  921.     (void)((*(LnkLI124))((V128),cadr((V126))));
  922.     {object V129 = list(4,VV[50],(V128),(V126),(V127));
  923.     VMR14(V129)}}
  924. }
  925. /*    function definition for C2EXPR    */
  926.  
  927. static L15()
  928. {register object *base=vs_base;
  929.     register object *sup=base+VM15; VC15
  930.     vs_reserve(VM15);
  931.     bds_check;
  932.     {register object V130;
  933.     check_arg(1);
  934.     V130=(base[0]);
  935.     vs_top=sup;
  936. TTL:;
  937.     if(!((car((V130)))==(VV[49]))){
  938.     goto T460;}
  939.     V131= caddr((V130));
  940.     V132= cadddr((V130));
  941.     V133= structure_ref(cadr((V130)),VV[25],2);
  942.     base[1]= (*(LnkLI158))(/* INLINE-ARGS */V131,/* INLINE-ARGS */V132,Cnil,/* INLINE-ARGS */V133);
  943.     vs_top=(vs_base=base+1)+1;
  944.     return;
  945. T460:;
  946.     if((car((V130)))==(VV[51])){
  947.     goto T462;}
  948.     if(!((car((V130)))==(VV[52]))){
  949.     goto T463;}
  950. T462:;
  951.     base[1]= (*(LnkLI159))(cadr((V130)));
  952.     bds_bind(VV[53],base[1]);
  953.     base[2]= get(car((V130)),VV[54],Cnil);
  954.     {object V134;
  955.     V134= cddr((V130));
  956.      vs_top=base+3;
  957.      while(!endp(V134))
  958.      {vs_push(car(V134));V134=cdr(V134);}
  959.     vs_base=base+3;}
  960.     super_funcall_no_event(base[2]);
  961.     bds_unwind1;
  962.     return;
  963. T463:;
  964.     {register object V135;
  965.     V135= get(car((V130)),VV[54],Cnil);
  966.     if(((V135))==Cnil){
  967.     goto T472;}
  968.     base[1]= (V135);
  969.     {object V136;
  970.     V136= cddr((V130));
  971.      vs_top=base+2;
  972.      while(!endp(V136))
  973.      {vs_push(car(V136));V136=cdr(V136);}
  974.     vs_base=base+2;}
  975.     super_funcall_no_event(base[1]);
  976.     return;
  977. T472:;
  978.     V135= get(car((V130)),VV[55],Cnil);
  979.     if(((V135))==Cnil){
  980.     goto T477;}
  981.     base[1]= (V130);
  982.     vs_top=(vs_base=base+1)+1;
  983.     super_funcall_no_event((V135));
  984.     return;
  985. T477:;
  986.     base[1]= (*(LnkLI160))();
  987.     vs_top=(vs_base=base+1)+1;
  988.     return;}
  989.     }
  990. }
  991. /*    local entry for function C2FUNCALL-SFUN    */
  992.  
  993. static object LI16(V140,V141,V142)
  994.  
  995. object V140;object V141;object V142;
  996. {     VMB16 VMS16 VMV16
  997.     bds_check;
  998. TTL:;
  999.     {object V143;
  1000.     object V144;
  1001.     V143= Cnil;
  1002.     V144= make_cons((V140),(V141));
  1003.     bds_bind(VV[56],small_fixnum(0));
  1004.     base[2]= make_fixnum(length((V144)));
  1005.     base[3]= VV[57];
  1006.     base[4]= Ct;
  1007.     vs_top=(vs_base=base+2)+3;
  1008.     Lmake_list();
  1009.     vs_top=sup;
  1010.     V145= vs_base[0];
  1011.     V146= list(4,V145,Ct,small_fixnum(3),VV[58]);
  1012.     V143= (*(LnkLI161))(/* INLINE-ARGS */V146,(V144));
  1013.     (void)((VFUN_NARGS=1,(*(LnkLI162))((V143))));
  1014.     {object V147 = (*(LnkLI163))();
  1015.     bds_unwind1;
  1016.     VMR16(V147)}}
  1017. }
  1018. /*    local entry for function C2EXPR*    */
  1019.  
  1020. static object LI17(V149)
  1021.  
  1022. object V149;
  1023. {     VMB17 VMS17 VMV17
  1024.     bds_check;
  1025. TTL:;
  1026.     setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));
  1027.     bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));
  1028.     bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61])));
  1029.     base[2]= (V149);
  1030.     vs_top=(vs_base=base+2)+1;
  1031.     (void) (*Lnk164)();
  1032.     vs_top=sup;
  1033.     if((cdr((VV[59]->s.s_dbind)))==Cnil){
  1034.     goto T497;}
  1035.     princ_str("\nT",VV[62]);
  1036.     (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));
  1037.     princ_str(":;",VV[62]);
  1038.     {object V150 = Cnil;
  1039.     bds_unwind1;
  1040.     bds_unwind1;
  1041.     VMR17(V150)}
  1042. T497:;
  1043.     {object V151 = Cnil;
  1044.     bds_unwind1;
  1045.     bds_unwind1;
  1046.     VMR17(V151)}
  1047. }
  1048. /*    local entry for function C2EXPR-TOP    */
  1049.  
  1050. static object LI18(V154,V155)
  1051.  
  1052. object V154;object V155;
  1053. {     VMB18 VMS18 VMV18
  1054.     bds_check;
  1055. TTL:;
  1056.     bds_bind(VV[63],small_fixnum(0));
  1057.     bds_bind(VV[64],small_fixnum(0));
  1058.     bds_bind(VV[65],one_plus(symbol_value(VV[65])));
  1059.     setq(VV[66],number_plus(symbol_value(VV[66]),small_fixnum(1)));
  1060.     bds_bind(VV[67],symbol_value(VV[66]));
  1061.     princ_str("\n    {register object *base",VV[62]);
  1062.     V156= one_minus((VV[65]->s.s_dbind));
  1063.     (void)((*(LnkLI165))(/* INLINE-ARGS */V156));
  1064.     princ_str("=base;",VV[62]);
  1065.     setq(VV[68],Ct);
  1066.     princ_str("\n    {register object *base=V",VV[62]);
  1067.     (void)((*(LnkLI165))((V155)));
  1068.     princ_char(59,VV[62]);
  1069.     princ_str("\n    register object *sup=vs_base+VM",VV[62]);
  1070.     (void)((*(LnkLI165))((VV[67]->s.s_dbind)));
  1071.     princ_char(59,VV[62]);
  1072.     if((symbol_value(VV[69]))==Cnil){
  1073.     goto T521;}
  1074.     princ_str("\n    vs_reserve(VM",VV[62]);
  1075.     (void)((*(LnkLI165))((VV[67]->s.s_dbind)));
  1076.     princ_str(");",VV[62]);
  1077.     goto T519;
  1078. T521:;
  1079.     princ_str("\n    vs_check;",VV[62]);
  1080. T519:;
  1081.     princ_str("\n    ",VV[62]);
  1082.     (void)((*(LnkLI166))());
  1083.     base[4]= (V154);
  1084.     vs_top=(vs_base=base+4)+1;
  1085.     (void) (*Lnk164)();
  1086.     vs_top=sup;
  1087.     V157= make_cons((VV[67]->s.s_dbind),(VV[64]->s.s_dbind));
  1088.     setq(VV[70],make_cons(/* INLINE-ARGS */V157,symbol_value(VV[70])));
  1089.     princ_str("\n    }}",VV[62]);
  1090.     {object V158 = Cnil;
  1091.     bds_unwind1;
  1092.     bds_unwind1;
  1093.     bds_unwind1;
  1094.     bds_unwind1;
  1095.     VMR18(V158)}
  1096. }
  1097. /*    local entry for function C2EXPR-TOP*    */
  1098.  
  1099. static object LI19(V161,V162)
  1100.  
  1101. object V161;object V162;
  1102. {     VMB19 VMS19 VMV19
  1103.     bds_check;
  1104. TTL:;
  1105.     setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));
  1106.     bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));
  1107.     bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61])));
  1108.     (void)((*(LnkLI167))((V161),(V162)));
  1109.     if((cdr((VV[59]->s.s_dbind)))==Cnil){
  1110.     goto T539;}
  1111.     princ_str("\nT",VV[62]);
  1112.     (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));
  1113.     princ_str(":;",VV[62]);
  1114.     {object V163 = Cnil;
  1115.     bds_unwind1;
  1116.     bds_unwind1;
  1117.     VMR19(V163)}
  1118. T539:;
  1119.     {object V164 = Cnil;
  1120.     bds_unwind1;
  1121.     bds_unwind1;
  1122.     VMR19(V164)}
  1123. }
  1124. /*    local entry for function C1PROGN    */
  1125.  
  1126. static object LI20(V166)
  1127.  
  1128. register object V166;
  1129. {     VMB20 VMS20 VMV20
  1130. TTL:;
  1131.     {register object V167;
  1132.     V167= Cnil;
  1133.     if(!(endp((V166)))){
  1134.     goto T546;}
  1135.     {object V168 = (*(LnkLI125))();
  1136.     VMR20(V168)}
  1137. T546:;
  1138.     if(!(endp(cdr((V166))))){
  1139.     goto T549;}
  1140.     {object V169 = (*(LnkLI123))(car((V166)));
  1141.     VMR20(V169)}
  1142. T549:;
  1143.     {register object V170;
  1144.     V170= (VFUN_NARGS=0,(*(LnkLI127))());
  1145.     {register object V171;
  1146.     register object V172;
  1147.     V171= (V166);
  1148.     V172= car((V171));
  1149. T556:;
  1150.     if(!(endp((V171)))){
  1151.     goto T557;}
  1152.     goto T552;
  1153. T557:;
  1154.     V172= (*(LnkLI123))((V172));
  1155.     V167= make_cons((V172),(V167));
  1156.     (void)((*(LnkLI124))((V170),cadr((V172))));
  1157.     V171= cdr((V171));
  1158.     V172= car((V171));
  1159.     goto T556;}
  1160. T552:;
  1161.     V173= structure_ref(cadar((V167)),VV[25],2);
  1162.     (void)(structure_set((V170),VV[25],2,/* INLINE-ARGS */V173));
  1163.     {object V174 = list(3,VV[71],(V170),reverse((V167)));
  1164.     VMR20(V174)}}}
  1165. }
  1166. /*    local entry for function C1PROGN*    */
  1167.  
  1168. static object LI21(V177,V178)
  1169.  
  1170. register object V177;object V178;
  1171. {     VMB21 VMS21 VMV21
  1172. TTL:;
  1173.     V177= (*(LnkLI168))((V177));
  1174.     (void)((*(LnkLI124))((V178),cadr((V177))));
  1175.     {object V179 = (V177);
  1176.     VMR21(V179)}
  1177. }
  1178. /*    function definition for C2PROGN    */
  1179.  
  1180. static L22()
  1181. {register object *base=vs_base;
  1182.     register object *sup=base+VM22; VC22
  1183.     vs_reserve(VM22);
  1184.     bds_check;
  1185.     {object V180;
  1186.     check_arg(1);
  1187.     V180=(base[0]);
  1188.     vs_top=sup;
  1189. TTL:;
  1190.     {register object V181;
  1191.     V181= (V180);
  1192. T576:;
  1193.     if(!(endp(cdr((V181))))){
  1194.     goto T577;}
  1195.     base[1]= car((V181));
  1196.     vs_top=(vs_base=base+1)+1;
  1197.     (void) (*Lnk164)();
  1198.     return;
  1199. T577:;
  1200.     bds_bind(VV[72],VV[73]);
  1201.     setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));
  1202.     bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));
  1203.     bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61])));
  1204.     base[4]= car((V181));
  1205.     vs_top=(vs_base=base+4)+1;
  1206.     (void) (*Lnk164)();
  1207.     vs_top=sup;
  1208.     if((cdr((VV[59]->s.s_dbind)))==Cnil){
  1209.     bds_unwind1;
  1210.     bds_unwind1;
  1211.     bds_unwind1;
  1212.     goto T582;}
  1213.     princ_str("\nT",VV[62]);
  1214.     (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));
  1215.     princ_str(":;",VV[62]);
  1216.     bds_unwind1;
  1217.     bds_unwind1;
  1218.     bds_unwind1;
  1219. T582:;
  1220.     V181= cdr((V181));
  1221.     goto T576;}
  1222.     }
  1223. }
  1224. /*    local entry for function C1ARGS    */
  1225.  
  1226. static object LI23(V184,V185)
  1227.  
  1228. object V184;object V185;
  1229. {     VMB23 VMS23 VMV23
  1230. TTL:;
  1231.     {object V186;
  1232.     object V187= (V184);
  1233.     if(endp(V187)){
  1234.     {object V188 = Cnil;
  1235.     VMR23(V188)}}
  1236.     base[0]=V186=MMcons(Cnil,Cnil);
  1237. T596:;
  1238.     (V186->c.c_car)= (*(LnkLI169))((V187->c.c_car),(V185));
  1239.     if(endp(V187=MMcdr(V187))){
  1240.     {object V190 = base[0];
  1241.     VMR23(V190)}}
  1242.     V186=MMcdr(V186)=MMcons(Cnil,Cnil);
  1243.     goto T596;}
  1244. }
  1245. /*    local entry for function C1STRUCTURE-REF    */
  1246.  
  1247. static object LI24(V192)
  1248.  
  1249. register object V192;
  1250. {     VMB24 VMS24 VMV24
  1251. TTL:;
  1252.     if((symbol_value(VV[69]))!=Cnil){
  1253.     goto T599;}
  1254.     if(endp((V192))){
  1255.     goto T599;}
  1256.     if(endp(cdr((V192)))){
  1257.     goto T599;}
  1258.     if(!(type_of(cadr((V192)))==t_cons)){
  1259.     goto T599;}
  1260.     if(!((caadr((V192)))==(VV[35]))){
  1261.     goto T599;}
  1262.     if(endp(cdadr((V192)))){
  1263.     goto T599;}
  1264.     if(!(type_of(cadadr((V192)))==t_symbol)){
  1265.     goto T599;}
  1266.     if(!(endp(cddadr((V192))))){
  1267.     goto T599;}
  1268.     if(endp(cddr((V192)))){
  1269.     goto T599;}
  1270.     if(!(type_of(caddr((V192)))==t_fixnum)){
  1271.     goto T599;}
  1272.     if(!(endp(cdddr((V192))))){
  1273.     goto T599;}
  1274.     {object V193 = (*(LnkLI149))(car((V192)),cadadr((V192)),caddr((V192)));
  1275.     VMR24(V193)}
  1276. T599:;
  1277.     {object V194;
  1278.     V194= (VFUN_NARGS=0,(*(LnkLI127))());
  1279.     {object V195 = list(4,VV[49],(V194),VV[74],(*(LnkLI142))((V192),(V194)));
  1280.     VMR24(V195)}}
  1281. }
  1282. /*    local entry for function C1STRUCTURE-REF1    */
  1283.  
  1284. static object LI25(V199,V200,V201)
  1285.  
  1286. object V199;object V200;object V201;
  1287. {     VMB25 VMS25 VMV25
  1288. TTL:;
  1289.     {object V202;
  1290.     V202= (VFUN_NARGS=0,(*(LnkLI127))());
  1291.     if((symbol_value(VV[69]))==Cnil){
  1292.     goto T624;}
  1293.     V203= list(4,VV[74],(V199),list(2,VV[35],(V200)),(V201));
  1294.     {object V204 = (*(LnkLI123))(/* INLINE-ARGS */V203);
  1295.     VMR25(V204)}
  1296. T624:;
  1297.     {object V205;
  1298.     object V206;
  1299.     V205= get((V200),VV[76],Cnil);
  1300.     V207= structure_ref((V205),VV[76],2);
  1301.     V206= aref1(/* INLINE-ARGS */V207,fixint((V201)));
  1302.     V208= aref1(symbol_value(VV[75]),fixint((V206)));
  1303.     V209= (*(LnkLI170))(/* INLINE-ARGS */V208);
  1304.     (void)(structure_set((V202),VV[25],2,/* INLINE-ARGS */V209));
  1305.     V210= (*(LnkLI169))((V199),(V202));
  1306.     V211= (*(LnkLI171))((V200));
  1307.     {object V212 = list(6,VV[77],(V202),/* INLINE-ARGS */V210,/* INLINE-ARGS */V211,(V201),(V205));
  1308.     VMR25(V212)}}}
  1309. }
  1310. /*    local entry for function COERCE-LOC-STRUCTURE-REF    */
  1311.  
  1312. static object LI26(V215,V216)
  1313.  
  1314. object V215;object V216;
  1315. {     VMB26 VMS26 VMV26
  1316. TTL:;
  1317.     {object V217;
  1318.     V217= cdr((V215));
  1319.     {object V218;
  1320.     object V219;
  1321.     V218= cadddr((V217));
  1322.     V219= caddr((V217));
  1323.     if(((V218))==Cnil){
  1324.     goto T633;}
  1325.     {object V220;
  1326.     register object V221;
  1327.     V222= structure_ref((V218),VV[76],2);
  1328.     V220= aref1(/* INLINE-ARGS */V222,fixint((V219)));
  1329.     V221= aref1(symbol_value(VV[75]),fixint((V220)));
  1330.     V223= (*(LnkLI170))((V221));
  1331.     V224= (*(LnkLI172))(/* INLINE-ARGS */V223);
  1332.     if(!((/* INLINE-ARGS */V224)==(VV[78]))){
  1333.     goto T637;}
  1334.     if(!(eql((V220),small_fixnum(0)))){
  1335.     goto T640;}
  1336.     goto T637;
  1337. T640:;
  1338.     base[5]= VV[79];
  1339.     base[6]= (V221);
  1340.     vs_top=(vs_base=base+5)+2;
  1341.     Lerror();
  1342.     vs_top=sup;
  1343. T637:;
  1344.     V225= car((V215));
  1345.     V226= (*(LnkLI170))((V221));
  1346.     (void)(structure_set(/* INLINE-ARGS */V225,VV[25],2,/* INLINE-ARGS */V226));
  1347.     V227= (*(LnkLI170))((V221));
  1348.     V228= (*(LnkLI172))(/* INLINE-ARGS */V227);
  1349.     V229= make_cons(car((V217)),Cnil);
  1350.     V230= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V229,VV[81]));
  1351.     V231= list(4,/* INLINE-ARGS */V228,small_fixnum(0),VV[80],list(4,car(/* INLINE-ARGS */V230),VV[82],(V219),(V218)));
  1352.     V232= (*(LnkLI170))((V216));
  1353.     {object V233 = (*(LnkLI173))(/* INLINE-ARGS */V231,/* INLINE-ARGS */V232);
  1354.     VMR26(V233)}}
  1355. T633:;
  1356.     {object V234 = (*(LnkLI175))();
  1357.     VMR26(V234)}}}
  1358. }
  1359. /*    local entry for function C2STRUCTURE-REF    */
  1360.  
  1361. static object LI27(V239,V240,V241,V242)
  1362.  
  1363. object V239;object V240;object V241;object V242;
  1364. {     VMB27 VMS27 VMV27
  1365.     bds_check;
  1366. TTL:;
  1367.     bds_bind(VV[63],symbol_value(VV[63]));
  1368.     bds_bind(VV[56],small_fixnum(0));
  1369.     {object V243;
  1370.     object V244;
  1371.     V245= make_cons((V239),Cnil);
  1372.     V246= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V245,VV[83]));
  1373.     V243= car(/* INLINE-ARGS */V246);{object V247;
  1374.     V247= symbol_value(VV[75]);
  1375.     V248= structure_ref((V242),VV[76],2);
  1376.     V249= aref1(/* INLINE-ARGS */V248,fixint((V241)));
  1377.     V244= aref1(V247,fixint(/* INLINE-ARGS */V249));}
  1378.     V250= (*(LnkLI170))((V244));
  1379.     V251= (*(LnkLI172))(/* INLINE-ARGS */V250);
  1380.     V252= list(4,/* INLINE-ARGS */V251,small_fixnum(0),VV[80],list(4,(V243),(V240),(V241),(V242)));
  1381.     (void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V252)));}
  1382.     {object V253 = (*(LnkLI163))();
  1383.     bds_unwind1;
  1384.     bds_unwind1;
  1385.     VMR27(V253)}
  1386. }
  1387. /*    local entry for function MY-CALL    */
  1388.  
  1389. static object LI28(V258,V259,V260,V261)
  1390.  
  1391. object V258;object V259;object V260;object V261;
  1392. {     VMB28 VMS28 VMV28
  1393. TTL:;
  1394.     {object V262;
  1395.     object V263;
  1396.     V262= structure_ref((V261),VV[76],2);
  1397.     V263= structure_ref((V261),VV[76],8);
  1398.     if((symbol_value(VV[69]))==Cnil){
  1399.     goto T652;}
  1400.     {object V264 = (*(LnkLI175))();
  1401.     VMR28(V264)}
  1402. T652:;
  1403.     princ_str("STREF(",VV[62]);{object V265;
  1404.     V265= symbol_value(VV[75]);
  1405.     V266= aref1((V262),fixint((V260)));
  1406.     V267= aref1(V265,fixint(/* INLINE-ARGS */V266));
  1407.     V268= (*(LnkLI176))(/* INLINE-ARGS */V267);
  1408.     (void)((*(LnkLI165))(/* INLINE-ARGS */V268));}
  1409.     princ_char(44,VV[62]);
  1410.     (void)((*(LnkLI165))((V258)));
  1411.     princ_char(44,VV[62]);
  1412.     V269= aref1((V263),fixint((V260)));
  1413.     (void)((*(LnkLI165))(/* INLINE-ARGS */V269));
  1414.     princ_char(41,VV[62]);
  1415.     {object V270 = Cnil;
  1416.     VMR28(V270)}}
  1417. }
  1418. /*    local entry for function C1STRUCTURE-SET    */
  1419.  
  1420. static object LI29(V272)
  1421.  
  1422. register object V272;
  1423. {     VMB29 VMS29 VMV29
  1424. TTL:;
  1425.     {register object V273;
  1426.     V273= (VFUN_NARGS=0,(*(LnkLI127))());
  1427.     if(endp((V272))){
  1428.     goto T663;}
  1429.     if((symbol_value(VV[69]))!=Cnil){
  1430.     goto T663;}
  1431.     if(endp(cdr((V272)))){
  1432.     goto T663;}
  1433.     if(!(type_of(cadr((V272)))==t_cons)){
  1434.     goto T663;}
  1435.     if(!((caadr((V272)))==(VV[35]))){
  1436.     goto T663;}
  1437.     if(endp(cdadr((V272)))){
  1438.     goto T663;}
  1439.     if(!(type_of(cadadr((V272)))==t_symbol)){
  1440.     goto T663;}
  1441.     if(!(endp(cddadr((V272))))){
  1442.     goto T663;}
  1443.     if(endp(cddr((V272)))){
  1444.     goto T663;}
  1445.     if(!(type_of(caddr((V272)))==t_fixnum)){
  1446.     goto T663;}
  1447.     if(endp(cdddr((V272)))){
  1448.     goto T663;}
  1449.     if(!(endp(cddddr((V272))))){
  1450.     goto T663;}
  1451.     {object V274;
  1452.     object V275;
  1453.     V274= (*(LnkLI123))(car((V272)));
  1454.     V275= (*(LnkLI123))(cadddr((V272)));
  1455.     (void)((*(LnkLI124))((V273),cadr((V274))));
  1456.     (void)((*(LnkLI124))((V273),cadr((V275))));
  1457.     V276= structure_ref(cadr((V275)),VV[25],2);
  1458.     (void)(structure_set((V273),VV[25],2,/* INLINE-ARGS */V276));
  1459.     V277= (*(LnkLI171))(cadadr((V272)));
  1460.     V278= caddr((V272));
  1461.     V279= get(cadadr((V272)),VV[76],Cnil);
  1462.     {object V280 = list(7,VV[84],(V273),(V274),/* INLINE-ARGS */V277,/* INLINE-ARGS */V278,(V275),V279);
  1463.     VMR29(V280)}}
  1464. T663:;
  1465.     {object V281 = list(4,VV[49],(V273),VV[85],(*(LnkLI142))((V272),(V273)));
  1466.     VMR29(V281)}}
  1467. }
  1468. /*    local entry for function C2STRUCTURE-SET    */
  1469.  
  1470. static object LI30(V287,V288,V289,V290,V291)
  1471.  
  1472. object V287;object V288;object V289;object V290;object V291;
  1473. {     VMB30 VMS30 VMV30
  1474.     bds_check;
  1475. TTL:;
  1476.     {object V292;
  1477.     V292= Cnil;
  1478.     bds_bind(VV[63],symbol_value(VV[63]));
  1479.     bds_bind(VV[56],small_fixnum(0));
  1480.     {object V293;
  1481.     object V294;
  1482.     object V295;
  1483.     object V296;
  1484.     object V297;
  1485.     object V298;
  1486.     V293= structure_ref((V291),VV[76],2);{object V299;
  1487.     V299= symbol_value(VV[75]);
  1488.     V300= aref1((V293),fixint((V289)));
  1489.     V294= aref1(V299,fixint(/* INLINE-ARGS */V300));}
  1490.     V295= structure_ref((V291),VV[76],8);
  1491.     V296= (*(LnkLI170))((V294));
  1492.     V297= Cnil;
  1493.     V298= Cnil;
  1494.     V301= (VFUN_NARGS=0,(*(LnkLI127))());
  1495.     V302= list(3,(V287),(V290),list(4,VV[49],/* INLINE-ARGS */V301,VV[86],Cnil));
  1496.     if(!(((V294))==(Ct))){
  1497.     goto T705;}
  1498.     V303= VV[87];
  1499.     goto T703;
  1500. T705:;
  1501.     V303= list(3,Ct,(V296),Ct);
  1502. T703:;
  1503.     V292= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V302,V303));
  1504.     V297= car((V292));
  1505.     V298= cadr((V292));
  1506.     if((symbol_value(VV[69]))==Cnil){
  1507.     goto T711;}
  1508.     (void)((*(LnkLI175))());
  1509. T711:;
  1510.     princ_str("\n    STSET(",VV[62]);
  1511.     V304= (*(LnkLI176))((V294));
  1512.     (void)((*(LnkLI165))(/* INLINE-ARGS */V304));
  1513.     princ_char(44,VV[62]);
  1514.     (void)((*(LnkLI165))((V297)));
  1515.     princ_char(44,VV[62]);
  1516.     V305= aref1((V295),fixint((V289)));
  1517.     (void)((*(LnkLI165))(/* INLINE-ARGS */V305));
  1518.     princ_str(", ",VV[62]);
  1519.     (void)((*(LnkLI165))((V298)));
  1520.     princ_str(");",VV[62]);
  1521.     V306= (*(LnkLI172))((V296));
  1522.     V307= list(4,/* INLINE-ARGS */V306,small_fixnum(0),VV[88],make_cons((V298),Cnil));
  1523.     (void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V307)));
  1524.     {object V308 = (*(LnkLI163))();
  1525.     bds_unwind1;
  1526.     bds_unwind1;
  1527.     VMR30(V308)}}}
  1528. }
  1529. /*    local entry for function C1CONSTANT-VALUE    */
  1530.  
  1531. static object LI31(V311,V312)
  1532.  
  1533. register object V311;object V312;
  1534. {     VMB31 VMS31 VMV31
  1535. TTL:;
  1536.     if(!(((V311))==(Cnil))){
  1537.     goto T726;}
  1538.     {object V313 = (*(LnkLI125))();
  1539.     VMR31(V313)}
  1540. T726:;
  1541.     if(!(((V311))==(Ct))){
  1542.     goto T729;}
  1543.     {object V314 = (*(LnkLI126))();
  1544.     VMR31(V314)}
  1545. T729:;
  1546.     if(!(type_of((V311))==t_fixnum)){
  1547.     goto T732;}
  1548.     V315= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[89]));
  1549.     V317= (*(LnkLI177))((V311));
  1550.     if(number_compare(/* INLINE-ARGS */V317,VV[91])>=0){
  1551.     goto T735;}
  1552.     V316= Cnil;
  1553.     goto T734;
  1554. T735:;
  1555.     V316= (*(LnkLI129))((V311));
  1556. T734:;
  1557.     {object V318 = list(3,VV[1],/* INLINE-ARGS */V315,list(3,VV[90],V316,(V311)));
  1558.     VMR31(V318)}
  1559. T732:;
  1560.     if(!(type_of((V311))==t_character)){
  1561.     goto T738;}
  1562.     V319= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[44]));
  1563.     V320= (*(LnkLI129))((V311));
  1564.     base[0]= (V311);
  1565.     vs_top=(vs_base=base+0)+1;
  1566.     Lchar_code();
  1567.     vs_top=sup;
  1568.     V321= vs_base[0];
  1569.     {object V322 = list(3,VV[1],/* INLINE-ARGS */V319,list(3,VV[92],/* INLINE-ARGS */V320,V321));
  1570.     VMR31(V322)}
  1571. T738:;
  1572.     if(!(type_of((V311))==t_longfloat)){
  1573.     goto T743;}
  1574.     {object V323;
  1575.     object V324;
  1576.     V323= Cnil;
  1577.     V324= Cnil;
  1578.     {register object x= (V311),V326= symbol_value(VV[93]);
  1579.     while(!endp(V326))
  1580.     if(type_of(V326->c.c_car)==t_cons &&eql(x,V326->c.c_car->c.c_car)){
  1581.     V325= (V326->c.c_car);
  1582.     goto T749;
  1583.     }else V326=V326->c.c_cdr;
  1584.     V325= Cnil;}
  1585. T749:;
  1586.     V323= cadr(V325);
  1587.     if(((V323))!=Cnil){
  1588.     goto T745;}
  1589.     V324= (*(LnkLI177))((V311));
  1590.     base[0]= VV[94];
  1591.     base[1]= small_fixnum(2);
  1592.     vs_top=(vs_base=base+0)+2;
  1593.     Ldivide();
  1594.     vs_top=sup;
  1595.     V327= vs_base[0];
  1596.     if(!(number_compare((V324),V327)>0)){
  1597.     goto T751;}
  1598.     base[0]= (V311);
  1599.     base[1]= VV[94];
  1600.     vs_top=(vs_base=base+0)+2;
  1601.     Ldivide();
  1602.     vs_top=sup;
  1603.     V328= vs_base[0];
  1604.     V329= list(4,VV[5],VV[19],V328,VV[95]);
  1605.     if(((*(LnkLI123))(/* INLINE-ARGS */V329))!=Cnil){
  1606.     goto T750;}
  1607. T751:;
  1608.     V330= number_times(VV[96],VV[97]);
  1609.     if(!(number_compare((V324),/* INLINE-ARGS */V330)<0)){
  1610.     goto T745;}
  1611.     base[0]= (V311);
  1612.     base[1]= VV[96];
  1613.     vs_top=(vs_base=base+0)+2;
  1614.     Ldivide();
  1615.     vs_top=sup;
  1616.     V331= vs_base[0];
  1617.     V332= list(4,VV[5],VV[19],V331,VV[98]);
  1618.     if(((*(LnkLI123))(/* INLINE-ARGS */V332))==Cnil){
  1619.     goto T745;}
  1620. T750:;
  1621.     V323= symbol_value(VV[99]);
  1622.     V333= list(2,(V311),(V323));
  1623.     setq(VV[93],make_cons(/* INLINE-ARGS */V333,symbol_value(VV[93])));
  1624. T745:;
  1625.     V334= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100]));
  1626.     if((V323)!=Cnil){
  1627.     V335= (V323);
  1628.     goto T770;}
  1629.     V335= (*(LnkLI129))((V311));
  1630. T770:;
  1631.     {object V336 = list(3,VV[1],/* INLINE-ARGS */V334,list(3,VV[101],V335,(V311)));
  1632.     VMR31(V336)}}
  1633. T743:;
  1634.     if(!(type_of((V311))==t_shortfloat)){
  1635.     goto T772;}
  1636.     V337= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[102]));
  1637.     V338= (*(LnkLI129))((V311));
  1638.     {object V339 = list(3,VV[1],/* INLINE-ARGS */V337,list(3,VV[103],/* INLINE-ARGS */V338,(V311)));
  1639.     VMR31(V339)}
  1640. T772:;
  1641.     if(((V312))==Cnil){
  1642.     goto T775;}
  1643.     V340= (*(LnkLI128))((V311));
  1644.     V341= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V340));
  1645.     {object V342 = list(3,VV[1],/* INLINE-ARGS */V341,list(2,VV[3],(*(LnkLI129))((V311))));
  1646.     VMR31(V342)}
  1647. T775:;
  1648.     {object V343 = Cnil;
  1649.     VMR31(V343)}
  1650. }
  1651. /*    macro definition for DEFINE-COMPILER-MACRO    */
  1652.  
  1653. static L32()
  1654. {register object *base=vs_base;
  1655.     register object *sup=base+VM32; VC32
  1656.     vs_reserve(VM32);
  1657.     check_arg(2);
  1658.     vs_top=sup;
  1659.     {object V344=base[0]->c.c_cdr;
  1660.     if(endp(V344))invalid_macro_call();
  1661.     base[2]= (V344->c.c_car);
  1662.     V344=V344->c.c_cdr;
  1663.     if(endp(V344))invalid_macro_call();
  1664.     base[3]= (V344->c.c_car);
  1665.     V344=V344->c.c_cdr;
  1666.     base[4]= V344;}
  1667.     V345= list(2,VV[35],base[2]);
  1668.     V346= list(2,VV[35],base[2]);
  1669.     V347= list(2,VV[35],base[3]);
  1670.     V348= list(4,VV[104],/* INLINE-ARGS */V345,list(2,VV[105],list(4,VV[106],/* INLINE-ARGS */V346,/* INLINE-ARGS */V347,list(2,VV[35],base[4]))),VV[107]);
  1671.     base[5]= list(3,VV[71],/* INLINE-ARGS */V348,list(2,VV[35],base[2]));
  1672.     vs_top=(vs_base=base+5)+1;
  1673.     return;
  1674. }
  1675. /*    local entry for function UNDEF-COMPILER-MACRO    */
  1676.  
  1677. static object LI33(V350)
  1678.  
  1679. object V350;
  1680. {     VMB33 VMS33 VMV33
  1681. TTL:;
  1682.     {object V351 = remprop((V350),VV[33]);
  1683.     VMR33(V351)}
  1684. }
  1685. /*    macro definition for DEFINE-INLINE-FUNCTION    */
  1686.  
  1687. static L34()
  1688. {register object *base=vs_base;
  1689.     register object *sup=base+VM34; VC34
  1690.     vs_reserve(VM34);
  1691.     bds_check;
  1692.     check_arg(2);
  1693.     vs_top=sup;
  1694.     {object V352=base[0]->c.c_cdr;
  1695.     if(endp(V352))invalid_macro_call();
  1696.     base[2]= (V352->c.c_car);
  1697.     V352=V352->c.c_cdr;
  1698.     if(endp(V352))invalid_macro_call();
  1699.     base[3]= (V352->c.c_car);
  1700.     V352=V352->c.c_cdr;
  1701.     base[4]= V352;}
  1702.     {register object V353;
  1703.     V353= Cnil;
  1704.     bds_bind(VV[108],symbol_value(VV[108]));
  1705.     {register object V354;
  1706.     register object V355;
  1707.     V354= base[3];
  1708.     V355= car((V354));
  1709. T781:;
  1710.     if(!(endp((V354)))){
  1711.     goto T782;}
  1712.     goto T777;
  1713. T782:;
  1714.     if(!(type_of((V355))==t_symbol)){
  1715.     goto T788;}
  1716.     {register object x= (V355),V356= VV[109];
  1717.     while(!endp(V356))
  1718.     if(x==(V356->c.c_car)){
  1719.     goto T788;
  1720.     }else V356=V356->c.c_cdr;}{object V358;
  1721.     {register object V359;
  1722.     V359= car((VV[108]->s.s_dbind));
  1723.     (VV[108]->s.s_dbind)= cdr((VV[108]->s.s_dbind));
  1724.     V358= (V359);}
  1725.     if(V358==Cnil)goto T794;
  1726.     V357= V358;
  1727.     goto T793;
  1728. T794:;}
  1729.     base[7]= VV[110];
  1730.     base[9]= VV[111];
  1731.     vs_top=(vs_base=base+9)+1;
  1732.     Lfind_package();
  1733.     vs_top=sup;
  1734.     base[8]= vs_base[0];
  1735.     vs_top=(vs_base=base+7)+2;
  1736.     Lgentemp();
  1737.     vs_top=sup;
  1738.     V357= vs_base[0];
  1739. T793:;
  1740.     V353= make_cons(V357,(V353));
  1741.     goto T786;
  1742. T788:;
  1743.     base[7]= VV[112];
  1744.     base[8]= (V355);
  1745.     base[9]= base[2];
  1746.     vs_top=(vs_base=base+7)+3;
  1747.     Lerror();
  1748.     vs_top=sup;
  1749. T786:;
  1750.     V354= cdr((V354));
  1751.     V355= car((V354));
  1752.     goto T781;}
  1753. T777:;
  1754.     {object V360;
  1755.     {object V362;
  1756.     object V363= base[3];
  1757.     object V364= (V353);
  1758.     if(endp(V363)||endp(V364)){
  1759.     V361= Cnil;
  1760.     goto T811;}
  1761.     base[6]=V362=MMcons(Cnil,Cnil);
  1762. T812:;
  1763.     (V362->c.c_car)= list(3,VV[113],list(2,VV[35],(V363->c.c_car)),(V364->c.c_car));
  1764.     if(endp(V363=MMcdr(V363))||endp(V364=MMcdr(V364))){
  1765.     V361= base[6];
  1766.     goto T811;}
  1767.     V362=MMcdr(V362)=MMcons(Cnil,Cnil);
  1768.     goto T812;}
  1769. T811:;
  1770.     V360= make_cons(VV[113],V361);
  1771.     V367= listA(4,VV[114],base[2],base[3],base[4]);
  1772.     base[6]= list(3,VV[71],/* INLINE-ARGS */V367,list(4,VV[115],base[2],(V353),list(4,VV[116],VV[117],(V360),list(2,VV[35],base[4]))));
  1773.     vs_top=(vs_base=base+6)+1;
  1774.     bds_unwind1;
  1775.     return;}}
  1776. }
  1777. /*    local entry for function NAME-TO-SD    */
  1778.  
  1779. static object LI35(V369)
  1780.  
  1781. object V369;
  1782. {     VMB35 VMS35 VMV35
  1783. TTL:;
  1784.     {object V370;
  1785.     V370= Cnil;{object V371;
  1786.     if(type_of((V369))==t_symbol){
  1787.     goto T818;}
  1788.     V371= Cnil;
  1789.     goto T817;
  1790. T818:;
  1791.     V370= get((V369),VV[76],Cnil);
  1792.     V371= (V370);
  1793. T817:;
  1794.     if(V371==Cnil)goto T816;
  1795.     goto T815;
  1796. T816:;}
  1797.     base[0]= VV[118];
  1798.     base[1]= (V369);
  1799.     vs_top=(vs_base=base+0)+2;
  1800.     Lerror();
  1801.     vs_top=sup;
  1802. T815:;
  1803.     {object V372 = (V370);
  1804.     VMR35(V372)}}
  1805. }
  1806. /*    local entry for function NAME-SD1    */
  1807.  
  1808. static object LI36(V374)
  1809.  
  1810. object V374;
  1811. {     VMB36 VMS36 VMV36
  1812. TTL:;{object V375;
  1813.     V375= get((V374),VV[119],Cnil);
  1814.     if(V375==Cnil)goto T823;
  1815.     {object V376 = V375;
  1816.     VMR36(V376)}
  1817. T823:;}
  1818.     V377= list(3,VV[5],VV[119],list(2,VV[35],(V374)));
  1819.     {object V378 = sputprop((V374),VV[120],/* INLINE-ARGS */V377);
  1820.     VMR36(V378)}
  1821. }
  1822. /*    local entry for function CO1STRUCTURE-PREDICATE    */
  1823.  
  1824. static object LI37(V381,V382)
  1825.  
  1826. object V381;object V382;
  1827. {     VMB37 VMS37 VMV37
  1828. TTL:;
  1829.     {object V383;
  1830.     V383= Cnil;
  1831.     if(!(type_of((V381))==t_symbol)){
  1832.     goto T827;}
  1833.     V383= get((V381),VV[121],Cnil);
  1834.     if(((V383))==Cnil){
  1835.     goto T827;}
  1836.     V384= car((V382));
  1837.     V385= list(3,VV[122],/* INLINE-ARGS */V384,list(2,VV[35],(V383)));
  1838.     {object V386 = (*(LnkLI123))(/* INLINE-ARGS */V385);
  1839.     VMR37(V386)}
  1840. T827:;
  1841.     {object V387 = Cnil;
  1842.     VMR37(V387)}}
  1843. }
  1844. static object  LnkTLI177(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[177],&LnkLI177,1,ap);} /* ABS */
  1845. static object  LnkTLI176(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[176],&LnkLI176,1,ap);} /* AET-C-TYPE */
  1846. static object  LnkTLI175(){return call_proc0(VV[175],&LnkLI175);} /* WFS-ERROR */
  1847. static object  LnkTLI174(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[174],&LnkLI174,ap);} /* INLINE-ARGS */
  1848. static object  LnkTLI173(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[173],&LnkLI173,2,ap);} /* COERCE-LOC */
  1849. static object  LnkTLI172(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[172],&LnkLI172,1,ap);} /* INLINE-TYPE */
  1850. static object  LnkTLI171(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[171],&LnkLI171,1,ap);} /* ADD-SYMBOL */
  1851. static object  LnkTLI170(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[170],&LnkLI170,1,ap);} /* TYPE-FILTER */
  1852. static object  LnkTLI169(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[169],&LnkLI169,2,ap);} /* C1EXPR* */
  1853. static object  LnkTLI168(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[168],&LnkLI168,1,ap);} /* C1PROGN */
  1854. static object  LnkTLI167(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[167],&LnkLI167,2,ap);} /* C2EXPR-TOP */
  1855. static object  LnkTLI166(){return call_proc0(VV[166],&LnkLI166);} /* RESET-TOP */
  1856. static object  LnkTLI165(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[165],&LnkLI165,1,ap);} /* WT1 */
  1857. static LnkT164(){ call_or_link(VV[164],&Lnk164);} /* C2EXPR */
  1858. static object  LnkTLI163(){return call_proc0(VV[163],&LnkLI163);} /* CLOSE-INLINE-BLOCKS */
  1859. static object  LnkTLI162(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[162],&LnkLI162,ap);} /* UNWIND-EXIT */
  1860. static object  LnkTLI161(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[161],&LnkLI161,2,ap);} /* GET-INLINE-LOC */
  1861. static object  LnkTLI160(){return call_proc0(VV[160],&LnkLI160);} /* BABOON */
  1862. static object  LnkTLI159(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[159],&LnkLI159,1,ap);} /* VOLATILE */
  1863. static object  LnkTLI158(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[158],&LnkLI158,4,ap);} /* C2CALL-GLOBAL */
  1864. static object  LnkTLI157(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[157],&LnkLI157,ap);} /* C1LAMBDA-EXPR */
  1865. static LnkT156(){ call_or_link(VV[156],&Lnk156);} /* RESULT-TYPE-FROM-ARGS */
  1866. static object  LnkTLI154(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[154],&LnkLI154,2,ap);} /* TYPE-AND */
  1867. static object  LnkTLI152(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[152],&LnkLI152,3,ap);} /* CHECK-FORM-TYPE */
  1868. static object  LnkTLI151(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[151],&LnkLI151,1,ap);} /* GET-ARG-TYPES */
  1869. static object  LnkTLI150(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[150],&LnkLI150,1,ap);} /* GET-RETURN-TYPE */
  1870. static object  LnkTLI149(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[149],&LnkLI149,3,ap);} /* C1STRUCTURE-REF1 */
  1871. static LnkT148(){ call_or_link(VV[148],&Lnk148);} /* CMP-EVAL */
  1872. static object  LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],&LnkLI32,2,ap);} /* RECORD-CALL-INFO */
  1873. static object  LnkTLI147(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[147],&LnkLI147,1,ap);} /* INLINE-POSSIBLE */
  1874. static object  LnkTLI146(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[146],&LnkLI146,3,ap);} /* CMP-EXPAND-MACRO */
  1875. static object  LnkTLI145(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[145],&LnkLI145,3,ap);} /* AND-FORM-TYPE */
  1876. static object  LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],&LnkLI144,1,ap);} /* GET-LOCAL-ARG-TYPES */
  1877. static object  LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],&LnkLI143,1,ap);} /* GET-LOCAL-RETURN-TYPE */
  1878. static object  LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],&LnkLI142,2,ap);} /* C1ARGS */
  1879. static object  LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],&LnkLI141,1,ap);} /* C1LOCAL-FUN */
  1880. static object  LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],&LnkLI140,2,ap);} /* TYPE>= */
  1881. static LnkT139(){ call_or_link(VV[139],&Lnk139);} /* FIX-OPT */
  1882. static object  LnkTLI138(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[138],&LnkLI138,ap);} /* CMPWARN */
  1883. static LnkT137(){ call_or_link(VV[137],&Lnk137);} /* FLAGS-POS */
  1884. static object  LnkTLI136(){return call_proc0(VV[136],&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */
  1885. static object  LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],&LnkLI135,ap);} /* CMPERR */
  1886. static object  LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],&LnkLI134,2,ap);} /* C1LAMBDA-FUN */
  1887. static LnkT133(){ call_or_link(VV[133],&Lnk133);} /* C1SYMBOL-FUN */
  1888. static object  LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[132],&LnkLI132,1,ap);} /* C1VAR */
  1889. static object  LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],&LnkLI131,1,ap);} /* ADD-CONSTANT */
  1890. static object  LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[130],&LnkLI130,2,ap);} /* C1CONSTANT-VALUE */
  1891. static object  LnkTLI129(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[129],&LnkLI129,1,ap);} /* ADD-OBJECT */
  1892. static object  LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],&LnkLI128,1,ap);} /* OBJECT-TYPE */
  1893. static object  LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],&LnkLI127,ap);} /* MAKE-INFO */
  1894. static object  LnkTLI126(){return call_proc0(VV[126],&LnkLI126);} /* C1T */
  1895. static object  LnkTLI125(){return call_proc0(VV[125],&LnkLI125);} /* C1NIL */
  1896. static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],&LnkLI124,2,ap);} /* ADD-INFO */
  1897. static object  LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[123],&LnkLI123,1,ap);} /* C1EXPR */
  1898.